home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / editutil.d < prev    next >
Text File  |  1997-10-26  |  2KB  |  57 lines
  1. DEFINITION MODULE EditUtil;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4.  
  5. FROM EditTypes IMPORT EDITPTR, aLineDesc;
  6.  
  7. PROCEDURE EditSaveWdwPos (wdw : INTEGER);
  8.  
  9. PROCEDURE EditSavePos();
  10. (* Sichert die Position und den Inhalt aller offenen Editorfenster
  11.  * (nicht ReadOnly-Fenster) 
  12.  *)
  13.  
  14. (* Einfge- und L”schoperationen *)
  15.  
  16. PROCEDURE IndentBlock (wdw : INTEGER);
  17.  
  18.         (* Hilfsfunktionen fr OpenEditor und EditMerge *)
  19.         
  20. PROCEDURE getFileParms (REF path, FileName : ARRAY OF CHAR;
  21.                         new : BOOLEAN; alerts : BOOLEAN;
  22.                         VAR fn : aLineDesc; VAR flen : LONGCARD;
  23.                         VAR fHdl : INTEGER) : BOOLEAN;
  24.  
  25. PROCEDURE testMem (flen : LONGCARD; VAR memSize : LONGCARD;
  26.                    VAR fastRead : BOOLEAN) : BOOLEAN;
  27.  
  28. PROCEDURE getReadBuff (memSize, flen : LONGCARD; VAR readBuf : ADDRESS) : BOOLEAN;
  29.  
  30. PROCEDURE EditPasteFile (wdw: INTEGER; isFilter: BOOLEAN; REF path, name: ARRAY OF CHAR);
  31. (* Fgt einen Text mit Filename ein 
  32.  *)
  33.  
  34. PROCEDURE SaveText (VAR ed : EDITPTR; saveas : BOOLEAN; takeName: BOOLEAN; REF fpath, fname : ARRAY OF CHAR) : BOOLEAN;
  35.  
  36. PROCEDURE PerformDragDrop (ed : EDITPTR; x, y: INTEGER; kstate, buts: BITSET);
  37.  
  38. PROCEDURE ClickIsInBlock (wdw : INTEGER; x, y: INTEGER) : BOOLEAN;
  39. (* Gibt zurck, ob die Position x, y im Blockbereich liegt
  40.  *)
  41.  
  42. PROCEDURE CheckWildAssign (VAR search, repl: ARRAY OF CHAR): BOOLEAN;
  43. (* Prft die Konsistenz von Wildcards und ihren Gegenstcken im Such-
  44.  * und Ersetzstring
  45.  *)
  46.  
  47. PROCEDURE MarkMultiple (ed: EDITPTR);
  48. (* Markiert multiple Bl”cke 
  49.  *)
  50.  
  51. PROCEDURE WrapText (ed: EDITPTR; force: BOOLEAN): BOOLEAN;
  52. (* Text umbrechen 
  53.  * TRUE: Text wurde umgebrochen
  54.  *)
  55.  
  56. END EditUtil.
  57.